Create a flexdashboard using plotly for that includes at least three distinct plot types (e.g. scatterplots, line plots, bar plots, box plots, etc.)
data(rest_inspec)
NYC_food =
rest_inspec |>
select(boro, score,cuisine_description, grade, zipcode) |>
drop_na(score) |>
drop_na(grade) |>
mutate(boro = ifelse(boro == 'Missing', NA, boro)) |>
drop_na(boro)
NYC_food |>
mutate(text_label = str_c("Grade: $", grade, "\nScore: ", score)) |> #\n: line break
plot_ly(x = ~cuisine_description, y = ~score, color = ~zipcode, text = ~text_label,
type = "scatter", mode = "markers") |>
layout(
title = "Scatter plot of scores by cuisine styles across zipcode",
yaxis = list(title = "Scores"),
xaxis = list(title = "Cuisine styles")
)